home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpopt.lsp
< prev
next >
Wrap
Text File
|
1986-03-18
|
24KB
|
472 lines
(in-package 'compiler)
(push '((t) boolean nil nil "#0==Cnil") (get 'null 'inline-always))
(push '((t) boolean nil nil "type_of(#0)==t_symbol")
(get 'symbolp 'inline-always))
(push '((t) boolean nil nil "type_of(#0)!=t_cons")
(get 'atom 'inline-always))
(push '((t) boolean nil nil "type_of(#0)==t_cons")
(get 'consp 'inline-always))
(push '((t) boolean nil nil "@0;type_of(#0)==t_cons||#0==Cnil")
(get 'listp 'inline-always))
(push '((t) boolean nil nil
"@0;type_of(#0)==t_fixnum||
type_of(#0)==t_bignum||
type_of(#0)==t_ratio||
type_of(#0)==t_shortfloat||
type_of(#0)==t_longfloat||
type_of(#0)==t_complex")
(get 'numberp 'inline-always))
(push '((t) boolean nil nil
"@0;type_of(#0)==t_fixnum||type_of(#0)==t_bignum")
(get 'integerp 'inline-always))
(push '((t) boolean nil nil
"@0;type_of(#0)==t_shortfloat||type_of(#0)==t_longfloat")
(get 'floatp 'inline-always))
(push '((t) boolean nil nil "type_of(#0)==t_character")
(get 'characterp 'inline-always))
(push '((t) boolean nil nil "type_of(#0)==t_string")
(get 'stringp 'inline-always))
(push '((t) boolean nil nil
"@0;type_of(#0)==t_vector||
type_of(#0)==t_string||
type_of(#0)==t_bitvector")
(get 'vectorp 'inline-always))
(push '((t) boolean nil nil
"@0;type_of(#0)==t_array||
type_of(#0)==t_vector||
type_of(#0)==t_string||
type_of(#0)==t_bitvector")
(get 'arrayp 'inline-always))
(push '((t) boolean nil nil
"@0;(type_of(#0)==t_symbol&&(#0)->s.s_hpack==keyword_package)")
(get 'keywordp 'inline-always))
(push '((t t) boolean nil nil "#0==#1") (get 'eq 'inline-always))
(push '((fixnum fixnum) boolean nil nil "0") (get 'eq 'inline-always))
(push '((t t) boolean nil nil "eql(#0,#1)") (get 'eql 'inline-always))
(push '((fixnum fixnum) boolean nil nil "(#0)==(#1)")
(get 'eql 'inline-always))
(push '((t t) boolean nil nil "equal(#0,#1)")
(get 'equal 'inline-always))
(push '((fixnum fixnum) boolean nil nil "(#0)==(#1)")
(get 'equal 'inline-always))
(push '((t t) boolean nil nil "equalp(#0,#1)")
(get 'equalp 'inline-always))
(push '((fixnum fixnum) boolean nil nil "(#0)==(#1)")
(get 'equalp 'inline-always))
(push '((t) boolean nil nil "endp(#0)") (get 'endp 'inline-safe))
(push '((t) boolean nil nil "#0==Cnil") (get 'endp 'inline-unsafe))
(push '((t) boolean nil nil "(#0)->s.s_dbind!=OBJNULL")
(get 'boundp 'inline-unsafe))
(push '((t) boolean nil nil "(#0)==Cnil") (get 'not 'inline-always))
(push '((character) fixnum nil nil "#0")
(get 'char-code 'inline-always))
(push '((fixnum) character nil nil "#0")
(get 'code-char 'inline-always))
(push '((fixnum-float) long-float nil nil "((longfloat)(#0))")
(get 'float 'inline-always))
(push '((fixnum-float) short-float nil nil "((shortfloat)(#0))")
(get 'float 'inline-always))
(push '((t) t nil t "coerce_to_string(#0)")
(get 'string 'inline-always))
(push '((fixnum-float) fixnum nil nil "(fixnum)(#0)")
(get 'truncate 'inline-always))
(push '((t) t nil nil "car(#0)") (get 'car 'inline-safe))
(push '((t) t nil nil "cdr(#0)") (get 'cdr 'inline-safe))
(push '((t) t nil nil "caar(#0)") (get 'caar 'inline-safe))
(push '((t) t nil nil "cadr(#0)") (get 'cadr 'inline-safe))
(push '((t) t nil nil "cdar(#0)") (get 'cdar 'inline-safe))
(push '((t) t nil nil "cddr(#0)") (get 'cddr 'inline-safe))
(push '((t) t nil nil "caaar(#0)") (get 'caaar 'inline-safe))
(push '((t) t nil nil "caadr(#0)") (get 'caadr 'inline-safe))
(push '((t) t nil nil "cadar(#0)") (get 'cadar 'inline-safe))
(push '((t) t nil nil "caddr(#0)") (get 'caddr 'inline-safe))
(push '((t) t nil nil "cdaar(#0)") (get 'cdaar 'inline-safe))
(push '((t) t nil nil "cdadr(#0)") (get 'cdadr 'inline-safe))
(push '((t) t nil nil "cddar(#0)") (get 'cddar 'inline-safe))
(push '((t) t nil nil "cdddr(#0)") (get 'cdddr 'inline-safe))
(push '((t) t nil nil "caaaar(#0)") (get 'caaaar 'inline-safe))
(push '((t) t nil nil "caaadr(#0)") (get 'caaadr 'inline-safe))
(push '((t) t nil nil "caadar(#0)") (get 'caadar 'inline-safe))
(push '((t) t nil nil "caaddr(#0)") (get 'caaddr 'inline-safe))
(push '((t) t nil nil "cadaar(#0)") (get 'cadaar 'inline-safe))
(push '((t) t nil nil "cadadr(#0)") (get 'cadadr 'inline-safe))
(push '((t) t nil nil "caddar(#0)") (get 'caddar 'inline-safe))
(push '((t) t nil nil "cadddr(#0)") (get 'cadddr 'inline-safe))
(push '((t) t nil nil "cdaaar(#0)") (get 'cdaaar 'inline-safe))
(push '((t) t nil nil "cdaadr(#0)") (get 'cdaadr 'inline-safe))
(push '((t) t nil nil "cdadar(#0)") (get 'cdadar 'inline-safe))
(push '((t) t nil nil "cdaddr(#0)") (get 'cdaddr 'inline-safe))
(push '((t) t nil nil "cddaar(#0)") (get 'cddaar 'inline-safe))
(push '((t) t nil nil "cddadr(#0)") (get 'cddadr 'inline-safe))
(push '((t) t nil nil "cdddar(#0)") (get 'cdddar 'inline-safe))
(push '((t) t nil nil "cddddr(#0)") (get 'cddddr 'inline-safe))
(push '((t) t nil nil "car(#0)") (get 'first 'inline-safe))
(push '((t) t nil nil "cadr(#0)") (get 'second 'inline-safe))
(push '((t) t nil nil "caddr(#0)") (get 'third 'inline-safe))
(push '((t) t nil nil "cadddr(#0)") (get 'fourth 'inline-safe))
(push '((t) t nil nil "cdr(#0)") (get 'rest 'inline-safe))
(push '((t) t nil nil "CMPcar(#0)") (get 'car 'inline-unsafe))
(push '((t) t nil nil "CMPcdr(#0)") (get 'cdr 'inline-unsafe))
(push '((t) t nil nil "CMPcaar(#0)") (get 'caar 'inline-unsafe))
(push '((t) t nil nil "CMPcadr(#0)") (get 'cadr 'inline-unsafe))
(push '((t) t nil nil "CMPcdar(#0)") (get 'cdar 'inline-unsafe))
(push '((t) t nil nil "CMPcddr(#0)") (get 'cddr 'inline-unsafe))
(push '((t) t nil nil "CMPcaaar(#0)") (get 'caaar 'inline-unsafe))
(push '((t) t nil nil "CMPcaadr(#0)") (get 'caadr 'inline-unsafe))
(push '((t) t nil nil "CMPcadar(#0)") (get 'cadar 'inline-unsafe))
(push '((t) t nil nil "CMPcaddr(#0)") (get 'caddr 'inline-unsafe))
(push '((t) t nil nil "CMPcdaar(#0)") (get 'cdaar 'inline-unsafe))
(push '((t) t nil nil "CMPcdadr(#0)") (get 'cdadr 'inline-unsafe))
(push '((t) t nil nil "CMPcddar(#0)") (get 'cddar 'inline-unsafe))
(push '((t) t nil nil "CMPcdddr(#0)") (get 'cdddr 'inline-unsafe))
(push '((t) t nil nil "CMPcaaaar(#0)") (get 'caaaar 'inline-unsafe))
(push '((t) t nil nil "CMPcaaadr(#0)") (get 'caaadr 'inline-unsafe))
(push '((t) t nil nil "CMPcaadar(#0)") (get 'caadar 'inline-unsafe))
(push '((t) t nil nil "CMPcaaddr(#0)") (get 'caaddr 'inline-unsafe))
(push '((t) t nil nil "CMPcadaar(#0)") (get 'cadaar 'inline-unsafe))
(push '((t) t nil nil "CMPcadadr(#0)") (get 'cadadr 'inline-unsafe))
(push '((t) t nil nil "CMPcaddar(#0)") (get 'caddar 'inline-unsafe))
(push '((t) t nil nil "CMPcadddr(#0)") (get 'cadddr 'inline-unsafe))
(push '((t) t nil nil "CMPcdaaar(#0)") (get 'cdaaar 'inline-unsafe))
(push '((t) t nil nil "CMPcdaadr(#0)") (get 'cdaadr 'inline-unsafe))
(push '((t) t nil nil "CMPcdadar(#0)") (get 'cdadar 'inline-unsafe))
(push '((t) t nil nil "CMPcdaddr(#0)") (get 'cdaddr 'inline-unsafe))
(push '((t) t nil nil "CMPcddaar(#0)") (get 'cddaar 'inline-unsafe))
(push '((t) t nil nil "CMPcddadr(#0)") (get 'cddadr 'inline-unsafe))
(push '((t) t nil nil "CMPcdddar(#0)") (get 'cdddar 'inline-unsafe))
(push '((t) t nil nil "CMPcddddr(#0)") (get 'cddddr 'inline-unsafe))
(push '((t) t nil nil "CMPcar(#0)") (get 'first 'inline-unsafe))
(push '((t) t nil nil "CMPcadr(#0)") (get 'second 'inline-unsafe))
(push '((t) t nil nil "CMPcaddr(#0)") (get 'third 'inline-unsafe))
(push '((t) t nil nil "CMPcadddr(#0)") (get 'fourth 'inline-unsafe))
(push '((t) t nil nil "CMPcdr(#0)") (get 'rest 'inline-unsafe))
(push '((t t) t nil nil "nth(fixint(#0),#1)")
(get 'nth 'inline-always))
(push '((t t) t nil nil "nthcdr(fixint(#0),#1)")
(get 'nthcdr 'inline-always))
(push '((t t) t nil nil "nth(fix(#0),#1)") (get 'nth 'inline-unsafe))
(push '((t t) t nil nil "nthcdr(fix(#0),#1)")
(get 'nthcdr 'inline-unsafe))
(push '((fixnum t) t nil nil "nth(#0,#1)") (get 'nth 'inline-always))
(push '((fixnum t) t nil nil "nthcdr(#0,#1)")
(get 'nthcdr 'inline-always))
(push '((t t) t nil t "make_cons(#0,#1)") (get 'cons 'inline-always))
(push '(nil t nil nil "Cnil") (get 'list 'inline-always))
(push '((t) t nil t "make_cons(#0,Cnil)") (get 'list 'inline-always))
(push '((t t) t nil t list-inline) (get 'list 'inline-always))
(push '((t t t) t nil t list-inline) (get 'list 'inline-always))
(push '((t t t t) t nil t list-inline) (get 'list 'inline-always))
(push '((t t t t t) t nil t list-inline) (get 'list 'inline-always))
(push '((t t t t t t) t nil t list-inline) (get 'list 'inline-always))
(push '((t t t t t t t) t nil t list-inline)
(get 'list 'inline-always))
(push '((t t t t t t t t) t nil t list-inline)
(get 'list 'inline-always))
(push '((t t t t t t t t t) t nil t list-inline)
(get 'list 'inline-always))
(push '((t t t t t t t t t t) t nil t list-inline)
(get 'list 'inline-always))
(push '((t) t nil nil "#0") (get 'list* 'inline-always))
(push '((t t) t nil t "make_cons(#0,#1)") (get 'list* 'inline-always))
(push '((t t t) t nil t list*-inline) (get 'list* 'inline-always))
(push '((t t t t) t nil t list*-inline) (get 'list* 'inline-always))
(push '((t t t t t) t nil t list*-inline) (get 'list* 'inline-always))
(push '((t t t t t t) t nil t list*-inline)
(get 'list* 'inline-always))
(push '((t t t t t t t) t nil t list*-inline)
(get 'list* 'inline-always))
(push '((t t t t t t t t) t nil t list*-inline)
(get 'list* 'inline-always))
(push '((t t t t t t t t t) t nil t list*-inline)
(get 'list* 'inline-always))
(push '((t t t t t t t t t t) t nil t list*-inline)
(get 'list* 'inline-always))
(push '((t t) t nil t "append(#0,#1)") (get 'append 'inline-always))
(push '((t t) t t nil "nconc(#0,#1)") (get 'nconc 'inline-always))
(push '((t) t nil t "reverse(#0)") (get 'reverse 'inline-always))
(push '((t) t t t "nreverse(#0)") (get 'nreverse 'inline-always))
(push '((t) fixnum nil nil "length(#0)") (get 'length 'inline-always))
(push '((t t t) t nil nil "get(#0,#1,#2)") (get 'get 'inline-always))
(push '((t t) t nil nil "get(#0,#1,Cnil)") (get 'get 'inline-always))
(push '((t t t) t t nil "putprop(#0,#1,#2)")
(get 'system:putprop 'inline-always))
(push '((t t) t t nil "remprop(#0,#1)") (get 'remprop 'inline-always))
(push '((t t) t nil t "aref1(#0,fixint(#1))")
(get 'svref 'inline-always))
(push '((t t) t nil t "elt(#0,fixint(#1))") (get 'char 'inline-always))
(push '((t t) t nil t "elt(#0,fixint(#1))")
(get 'schar 'inline-always))
(push '((t t) t nil t "elt(#0,fixint(#1))") (get 'elt 'inline-always))
(push '((t fixnum) t nil t "aref1(#0,#1)") (get 'svref 'inline-always))
(push '((t fixnum) t nil t "elt(#0,#1)") (get 'char 'inline-always))
(push '((t fixnum) t nil t "elt(#0,#1)") (get 'schar 'inline-always))
(push '((t fixnum) t nil t "elt(#0,#1)") (get 'elt 'inline-always))
(push '((t t) t nil nil "(#0)->v.v_self[fix(#1)]")
(get 'svref 'inline-unsafe))
(push '((t t) t nil nil "code_char((#0)->ust.ust_self[fix(#1)])")
(get 'char 'inline-unsafe))
(push '((t t) t nil nil "code_char((#0)->ust.ust_self[fix(#1)])")
(get 'schar 'inline-unsafe))
(push '((t t) t nil t "elt(#0,fix(#1))") (get 'elt 'inline-unsafe))
(push '((t fixnum) t nil nil "(#0)->v.v_self[#1]")
(get 'svref 'inline-unsafe))
(push '((t fixnum) character nil nil "(#0)->ust.ust_self[#1]")
(get 'char 'inline-unsafe))
(push '((t fixnum) character nil nil "(#0)->ust.ust_self[#1]")
(get 'schar 'inline-unsafe))
(push '((t t t) t t nil "aset1(#0,fixint(#1),#2)")
(get 'system:svset 'inline-always))
(push '((t t t) t t nil "elt_set(#0,fixint(#1),#2)")
(get 'system:char-set 'inline-always))
(push '((t t t) t t nil "elt_set(#0,fixint(#1),#2)")
(get 'system:schar-set 'inline-always))
(push '((t t t) t t nil "elt_set(#0,fixint(#1),#2)")
(get 'system:elt-set 'inline-always))
(push '((t fixnum t) t t nil "aset1(#0,#1,#2)")
(get 'system:svset 'inline-always))
(push '((t fixnum t) t t nil "elt_set(#0,#1,#2)")
(get 'system:char-set 'inline-always))
(push '((t fixnum t) t t nil "elt_set(#0,#1,#2)")
(get 'system:schar-set 'inline-always))
(push '((t fixnum t) t t nil "elt_set(#0,#1,#2)")
(get 'system:elt-set 'inline-always))
(push '((t t t) t t nil "((#0)->v.v_self[fix(#1)]=(#2))")
(get 'system:svset 'inline-unsafe))
(push '((t t t) t t nil
"@2;((#0)->ust.ust_self[fix(#1)]=char_code(#2),(#2))")
(get 'system:char-set 'inline-unsafe))
(push '((t t t) t t nil
"@2;((#0)->ust.ust_self[fix(#1)]=char_code(#2),(#2))")
(get 'system:schar-set 'inline-unsafe))
(push '((t t t) t t nil "elt_set(#0,fix(#1),#2)")
(get 'system:elt-set 'inline-unsafe))
(push '((t fixnum t) t t nil "(#0)->v.v_self[#1]= #2")
(get 'system:svset 'inline-unsafe))
(push '((t fixnum character) character t nil
"(#0)->ust.ust_self[#1]= #2")
(get 'system:char-set 'inline-unsafe))
(push '((t fixnum character) character t nil
"(#0)->ust.ust_self[#1]= #2")
(get 'system:schar-set 'inline-unsafe))
(push '((t t) t nil t "aref1(#0,fixint(#1))")
(get 'aref 'inline-always))
(push '((t t) t nil t "aref1(#0,fix(#1))") (get 'aref 'inline-unsafe))
(push '((t fixnum) t nil t "aref1(#0,#1)") (get 'aref 'inline-always))
(push '(((array t) fixnum) t nil nil "(#0)->v.v_self[#1]")
(get 'aref 'inline-unsafe))
(push '(((array string-char) fixnum) character nil nil
"(#0)->ust.ust_self[#1]")
(get 'aref 'inline-unsafe))
(push '(((array fixnum) fixnum) fixnum nil nil
"(#0)->fixa.fixa_self[#1]")
(get 'aref 'inline-unsafe))
(push '(((array short-float) fixnum) short-float nil nil
"(#0)->sfa.sfa_self[#1]")
(get 'aref 'inline-unsafe))
(push '(((array long-float) fixnum) long-float nil nil
"(#0)->lfa.lfa_self[#1]")
(get 'aref 'inline-unsafe))
(push '((t t t) t nil t
"@0;aref(#0,fix(#1)*(#0)->a.a_dims[1]+fix(#2))")
(get 'aref 'inline-unsafe))
(push '(((array t) fixnum fixnum) t nil nil
"@0;(#0)->a.a_self[#1*(#0)->a.a_dims[1]+#2]")
(get 'aref 'inline-unsafe))
(push '(((array string-char) fixnum fixnum) character nil nil
"@0;(#0)->ust.ust_self[#1*(#0)->a.a_dims[1]+#2]")
(get 'aref 'inline-unsafe))
(push '(((array fixnum) fixnum fixnum) fixnum nil nil
"@0;(#0)->fixa.fixa_self[#1*(#0)->a.a_dims[1]+#2]")
(get 'aref 'inline-unsafe))
(push '(((array short-float) fixnum fixnum) short-float nil nil
"@0;(#0)->sfa.sfa_self[#1*(#0)->a.a_dims[1]+#2]")
(get 'aref 'inline-unsafe))
(push '(((array long-float) fixnum fixnum) long-float nil nil
"@0;(#0)->lfa.lfa_self[#1*(#0)->a.a_dims[1]+#2]")
(get 'aref 'inline-unsafe))
(push '((t t t) t t nil "aset1(#0,fixint(#1),#2)")
(get 'system:aset 'inline-always))
(push '((t t t) t t nil "aset1(#0,fix(#1),#2)")
(get 'system:aset 'inline-unsafe))
(push '((t fixnum t) t t nil "aset1(#0,#1,#2)")
(get 'system:aset 'inline-always))
(push '(((array t) fixnum t) t t nil "(#0)->v.v_self[#1]= #2")
(get 'system:aset 'inline-unsafe))
(push '(((array string-char) fixnum character) character t nil
"(#0)->ust.ust_self[#1]= #2")
(get 'system:aset 'inline-unsafe))
(push '(((array fixnum) fixnum fixnum) fixnum t nil
"(#0)->fixa.fixa_self[#1]= #2")
(get 'system:aset 'inline-unsafe))
(push '(((array short-float) fixnum short-float) short-float t nil
"(#0)->sfa.sfa_self[#1]= #2")
(get 'system:aset 'inline-unsafe))
(push '(((array long-float) fixnum long-float) long-float t nil
"(#0)->lfa.lfa_self[#1]= #2")
(get 'system:aset 'inline-unsafe))
(push '((t t t t) t t nil
"@0;aset(#0,fix(#1)*(#0)->a.a_dims[1]+fix(#2),#3)")
(get 'system:aset 'inline-unsafe))
(push '(((array t) fixnum fixnum t) t t nil
"@0;(#0)->a.a_self[#1*(#0)->a.a_dims[1]+#2]= #3")
(get 'system:aset 'inline-unsafe))
(push '(((array string-char) fixnum fixnum character) character t nil
"@0;(#0)->ust.ust_self[#1*(#0)->a.a_dims[1]+#2]= #3")
(get 'system:aset 'inline-unsafe))
(push '(((array fixnum) fixnum fixnum fixnum) fixnum t nil
"@0;(#0)->fixa.fixa_self[#1*(#0)->a.a_dims[1]+#2]= #3")
(get 'system:aset 'inline-unsafe))
(push '(((array short-float) fixnum fixnum short-float) short-float t
nil "@0;(#0)->sfa.sfa_self[#1*(#0)->a.a_dims[1]+#2]= #3")
(get 'system:aset 'inline-unsafe))
(push '(((array long-float) fixnum fixnum long-float) long-float t nil
"@0;(#0)->lfa.lfa_self[#1*(#0)->a.a_dims[1]+#2]= #3")
(get 'system:aset 'inline-unsafe))
(push '((t t) t t nil "princ(#0,#1)") (get 'princ 'inline-always))
(push '((t) t t nil "princ(#0,Cnil)") (get 'princ 'inline-always))
(push '((t t) t t nil "prin1(#0,#1)") (get 'prin1 'inline-always))
(push '((t) t t nil "prin1(#0,Cnil)") (get 'prin1 'inline-always))
(push '((t t) t t nil "print(#0,#1)") (get 'print 'inline-always))
(push '((t) t t nil "print(#0,Cnil)") (get 'print 'inline-always))
(push '((t) t t nil "terpri(#0)") (get 'terpri 'inline-always))
(push '(nil t t nil "terpri(Cnil)") (get 'terpri 'inline-always))
(push '((t t) t nil t "number_plus(#0,#1)") (get '+ 'inline-always))
(push '((t) t nil t "one_plus(#0)") (get '1+ 'inline-always))
(push '((t) t nil t "number_negate(#0)") (get '- 'inline-always))
(push '((t t) t nil t "number_minus(#0,#1)") (get '- 'inline-always))
(push '((t) t nil t "one_minus(#0)") (get '1- 'inline-always))
(push '((t t) t nil t "number_times(#0,#1)") (get '* 'inline-always))
(push '((t t) t nil t "number_expt(#0,#1)") (get 'expt 'inline-always))
(push '((fixnum) fixnum nil nil "(#0)+1") (get '1+ 'inline-always))
(push '((fixnum fixnum) fixnum nil nil "(#0)+(#1)")
(get '+ 'inline-always))
(push '((fixnum) fixnum nil nil "(#0)-1") (get '1- 'inline-always))
(push '((fixnum fixnum) fixnum nil nil "(#0)-(#1)")
(get '- 'inline-always))
(push '((fixnum) fixnum nil nil "-(#0)") (get '- 'inline-always))
(push '((fixnum fixnum) fixnum nil nil "(#0)*(#1)")
(get '* 'inline-always))
(push '((fixnum fixnum) fixnum nil nil
"@01;(#0>=0&>0?(#0)/(#1):ifloor(#0,#1))")
(get 'floor 'inline-always))
(push '((fixnum fixnum) fixnum nil nil
"@01;(#0>=0&>0?(#0)%(#1):imod(#0,#1))")
(get 'mod 'inline-always))
(push '((fixnum fixnum) fixnum nil nil
(lambda (loc1 loc2)
(if (and (consp loc1) (eq (car loc1) 'fixnum-loc)
(consp (cadr loc1)) (eq (caadr loc1) 'fixnum-value)
(equal (caddr (cadr loc1)) 2))
(wt "(1<<(" loc2 "))")
(wt "fixnum_expt(" loc1 #\, loc2 #\)))))
(get 'expt 'inline-always))
(push '((fixnum-float) short-float nil nil "(double)(#0)+1")
(get '1+ 'inline-always))
(push '((fixnum-float fixnum-float) short-float nil nil
"(double)(#0)+(double)(#1)")
(get '+ 'inline-always))
(push '((fixnum-float) short-float nil nil "(double)(#0)-1")
(get '1- 'inline-always))
(push '((fixnum-float fixnum-float) short-float nil nil
"(double)(#0)-(double)(#1)")
(get '- 'inline-always))
(push '((fixnum-float) short-float nil nil "-(double)(#0)")
(get '- 'inline-always))
(push '((fixnum-float fixnum-float) short-float nil nil
"(double)(#0)*(double)(#1)")
(get '* 'inline-always))
(push '((fixnum-float fixnum-float) short-float nil nil
"(double)(#0)/(double)(#1)")
(get '/ 'inline-always))
(push '((fixnum-float) long-float nil nil "(double)(#0)+1")
(get '1+ 'inline-always))
(push '((fixnum-float) long-float nil nil "(double)(#0)-1")
(get '1- 'inline-always))
(push '((fixnum-float) long-float nil nil "-(double)(#0)")
(get '- 'inline-always))
(push '((fixnum-float fixnum-float) long-float nil nil
"(double)(#0)+(double)(#1)")
(get '+ 'inline-always))
(push '((fixnum-float fixnum-float) long-float nil nil
"(double)(#0)-(double)(#1)")
(get '- 'inline-always))
(push '((fixnum-float fixnum-float) long-float nil nil
"(double)(#0)*(double)(#1)")
(get '* 'inline-always))
(push '((fixnum-float fixnum-float) long-float nil nil
"(double)(#0)/(double)(#1)")
(get '/ 'inline-always))
(push '((long-float) long-float nil nil "sin(#0)")
(get 'sin 'inline-always))
(push '((long-float) long-float nil nil "cos(#0)")
(get 'cos 'inline-always))
(push '((long-float) long-float nil nil "tan(#0)")
(get 'tan 'inline-always))
(push '((t) boolean nil nil "number_compare(small_fixnum(0),#0)==0")
(get 'zerop 'inline-always))
(push '((t) boolean nil nil "number_compare(small_fixnum(0),#0)<0")
(get 'plusp 'inline-always))
(push '((t) boolean nil nil "number_compare(small_fixnum(0),#0)>0")
(get 'minusp 'inline-always))
(push '((t t) boolean nil nil "number_compare(#0,#1)==0")
(get '= 'inline-always))
(push '((t t) boolean nil nil "number_compare(#0,#1)!=0")
(get '/= 'inline-always))
(push '((t t) boolean nil nil "number_compare(#0,#1)<0")
(get '< 'inline-always))
(push '((t t) boolean nil nil "number_compare(#0,#1)>0")
(get '> 'inline-always))
(push '((t t) boolean nil nil "number_compare(#0,#1)<=0")
(get '<= 'inline-always))
(push '((t t) boolean nil nil "number_compare(#0,#1)>=0")
(get '>= 'inline-always))
(push '((t t) t nil nil "@01;(number_compare(#0,#1)>=0?#0:#1)")
(get 'max 'inline-always))
(push '((t t) t nil nil "@01;(number_compare(#0,#1)<=0?#0:#1)")
(get 'min 'inline-always))
(push '((fixnum-float) boolean nil nil "(#0)==0")
(get 'zerop 'inline-always))
(push '((fixnum-float) boolean nil nil "(#0)>0")
(get 'plusp 'inline-always))
(push '((fixnum-float) boolean nil nil "(#0)<0")
(get 'minusp 'inline-always))
(push '((fixnum-float fixnum-float) boolean nil nil "(#0)==(#1)")
(get '= 'inline-always))
(push '((fixnum-float fixnum-float) boolean nil nil "(#0)!=(#1)")
(get '/= 'inline-always))
(push '((fixnum-float fixnum-float) boolean nil nil "(#0)<(#1)")
(get '< 'inline-always))
(push '((fixnum-float fixnum-float) boolean nil nil "(#0)<=(#1)")
(get '<= 'inline-always))
(push '((fixnum-float fixnum-float) boolean nil nil "(#0)>(#1)")
(get '> 'inline-always))
(push '((fixnum-float fixnum-float) boolean nil nil "(#0)>=(#1)")
(get '>= 'inline-always))
(push '((fixnum fixnum) fixnum nil nil "@01;(#0)>=(#1)?#0:#1")
(get 'max 'inline-always))
(push '((fixnum fixnum) fixnum nil nil "@01;(#0)<=(#1)?#0:#1")
(get 'min 'inline-always))
(push '((t t) boolean nil nil "eql(#0,#1)")
(get 'char= 'inline-unsafe))
(push '((t t) boolean nil nil "!eql(#0,#1)")
(get 'char/= 'inline-unsafe))
(push '((t t) boolean nil nil "char_code(#0)==char_code(#1)")
(get 'char= 'inline-unsafe))
(push '((t t) boolean nil nil "char_code(#0)!=char_code(#1)")
(get 'char/= 'inline-unsafe))
(push '((character character) boolean nil nil "(#0)==(#1)")
(get 'char= 'inline-always))
(push '((character character) boolean nil nil "(#0)!=(#1)")
(get 'char/= 'inline-always))
(push '((character character) boolean nil nil "(#0)<(#1)")
(get 'char< 'inline-always))
(push '((character character) boolean nil nil "(#0)<=(#1)")
(get 'char<= 'inline-always))
(push '((character character) boolean nil nil "(#0)>(#1)")
(get 'char> 'inline-always))
(push '((character character) boolean nil nil "(#0)>=(#1)")
(get 'char>= 'inline-always))